home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / docs / winer / evaluate.bas < prev    next >
Encoding:
BASIC Source File  |  1992-05-13  |  1.2 KB  |  45 lines
  1. '********** EVALUATE.BAS - simple expression evaluator
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DECLARE FUNCTION Evaluate# (Formula$)
  6.  
  7. INPUT "Enter an expression: ", Expr$
  8. PRINT "That evaluates to"; Evaluate#(Expr$)
  9.  
  10. FUNCTION Evaluate# (Formula$)
  11.  
  12.   'Search for an operator using INSTR as a
  13.   'table lookup.  If found, remember which
  14.   'one and also its position in the string.
  15.   FOR Position% = 1 TO LEN(Formula$)
  16.     Operation% = INSTR("+-*/", MID$(Formula$, Position%, 1))
  17.     IF Operation% THEN EXIT FOR
  18.   NEXT
  19.  
  20.   'Get the value of the left part, and a
  21.   'tentative value for the right portion.
  22.   LeftVal# = VAL(Formula$)
  23.   RightVal# = VAL(MID$(Formula$, Position% + 1))
  24.  
  25.   'See if there's another level to evaluate.
  26.   Paren% = INSTR(Position%, Formula$, "(")
  27.  
  28.   'If there is, call ourself for a new RightVal#.
  29.   IF Paren% THEN RightVal# = Evaluate#(MID$(Formula$, Paren% + 1))
  30.  
  31.   'No more to evaluate.  Perform the appropriate
  32.   'operation and exit.
  33.   SELECT CASE Operation%
  34.     CASE 1
  35.       Evaluate# = LeftVal# + RightVal#
  36.     CASE 2
  37.       Evaluate# = LeftVal# - RightVal#
  38.     CASE 3
  39.       Evaluate# = LeftVal# * RightVal#
  40.     CASE 4
  41.       Evaluate# = LeftVal# / RightVal#
  42.   END SELECT
  43.  
  44. END FUNCTION
  45.